10 .BA 49152
20 .GL IRQVEC     = $0314   ;IRQVEKTOR
30 .GL IRQALT     = $EA31   ;ALTE IRQ-ROUTINE
100 INIT SEI;IRQ SPERREN
110  LDA#<(IRQNEU);IRQ-VEKTOR AUF NEUE
120  LDX#>(IRQNEU);IRQ-ROUTINE STELLEN
130  STAIRQVEC
140  STXIRQVEC+1
150  CLI;IRQ WIEDER ZULASSEN
160  RTS;UND ZURUECK...
170 ;
180 DEINIT SEI;IRQ SPERREN
190  LDA#<(IRQALT);VEKTOR MIT STARTADRESSE
200  LDX#>(IRQALT);DER ALTEN IRQ-ROUTINE BELEGEN
210  STAIRQVEC
220  STXIRQVEC+1
230  CLI;IRQ WIEDER ZULASSEN
240  RTS;UND ZURUECK...
250 ;
260 IRQNEU INC1024;1024 INKREMENTIEREN
270  JMPIRQALT;IN DIE ALTE IRQ-ROUTINE